home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / util / misc / CAR.lha / CreateAminetReadMe / CreateAminetReadMe.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-06-04  |  15.9 KB  |  428 lines
  1. /* $VER: CreateAminetReadMe.rexx 1.5 (1999-06-03) */
  2. OPTIONS RESULTS
  3. call Tags
  4. SELECT
  5. WHEN arg(1)="LOAD" then CALL Load
  6. WHEN arg(1)="SAVE" then CALL Save
  7. WHEN arg(1)="LOADPREFS" then CALL LoadPrefs
  8. WHEN arg(1)="SAVEPREFS" then CALL SavePrefs
  9. WHEN arg(1)="ABOUT" then CALL About
  10. WHEN arg(1)="REQUIEXTRA" then CALL RequiExtra
  11. WHEN arg(1)="REQUIEXTRAADDPRE" then CALL RequiExtraAddPre
  12. WHEN arg(1)="REQUIEXTRAOK" then CALL RequiExtraOk
  13. OTHERWISE CALL init
  14. end
  15. exit
  16. init:
  17. address CreateAminetReadMe
  18. window ID DOOM TITLE '"CreateAminetReadMe v1.5"' COMMAND '"quit"' PORT CreateAminetReadMe ATTRS MUIA_Window_ScreenTitle '"CreateAminetReadMe 1.5 ©1998-1999 Lorens Johansson Freely Distributable Emailware"'
  19. menu LABEL "CreateAminetReadMe"
  20. item COMMAND '"method 'MUIM_Application_OpenConfigWindow'"' PORT CreateAminetReadMe ATTRS MUIA_Menuitem_Shortcut 'P' LABEL "MUI Prefs..."
  21. item COMMAND '"CreateAminetReadMe.rexx SAVEPREFS"' ATTRS MUIA_Menuitem_Shortcut 'S' LABEL "Save Prefs"
  22. item ATTRS MUIA_Menuitem_Title '-1'
  23. item COMMAND '"method 'MUIM_Application_AboutMUI' 0"' PORT CreateAminetReadMe  ATTRS MUIA_Menuitem_Shortcut 'M' LABEL "About MUI"
  24. item COMMAND '"CreateAminetReadMe.rexx ABOUT"' ATTRS MUIA_Menuitem_Shortcut 'A' LABEL "About"
  25. item ATTRS MUIA_Menuitem_Title '-1'
  26. item COMMAND '"quit"' PORT CreateAminetReadMe ATTRS MUIA_Menuitem_Shortcut 'Q' LABEL "Quit"
  27. endmenu
  28. group ATTRS MUIA_Group_Columns 2
  29. text help '"CreateAminetReadMe v1.5 by\nLorens Johansson (http://members.xoom.com/snorslex)\nIf you use this program, you are required to\nEmail the author (SnorsleX@SoftHome.net). Otherwise,\nhow is he supposed to know to keep supporting\nCreateAminetReadMe ?!?\n\033rLorens Johansson"' label "\033c\033bCreateAminetReadMe v1.5\033n\n\033cLorens Johansson\n\033cFreely Distributable Emailware"
  30. text ICON '"CreateAminetReadMe"'
  31. endgroup
  32. endgroup
  33. group REGISTER ATTRS MUIA_CycleChain 1 LABELS "Required,Additional,Other"
  34. group HORIZ
  35. group ATTRS MUIA_Group_Columns 2
  36. label "Short:"
  37. string ID SHORT ATTRS MUIA_CycleChain 1 MUIA_String_MaxLen 41 help '"The programs short description."'
  38. label "Author:"
  39. string ID AUTHO ATTRS MUIA_CycleChain 1 help '"The authors name and email."'
  40. label "Uploader:"
  41. string ID UPLOA ATTRS MUIA_CycleChain 1 help '"The uploaders name and email."'
  42. label "Upload type:"
  43. poplist ID ULTYP ATTRS MUIA_CycleChain 1 help '"In which directory your program will be put."' labels "
  44. biz/cloan,biz/cross,biz/dbase,biz/demo,biz/dopus,biz/haage,biz/misc,biz/p5,biz/patch,biz/swood,
  45. comm/amiex,comm/bbs,comm/cnet,comm/dlg,comm/fido,comm/irc,comm/mail,comm/maxs,comm/misc,comm/mmgr,comm/net,comm/news,comm/tcp,comm/thor,comm/ums,comm/uucp,comm/www,comm/xeno,
  46. demo/40k,demo/aga,demo/bse,demo/euro,demo/file,demo/intro,demo/mag,demo/slide,demo/sound,demo/ta97,
  47. dev/amos,dev/asm,dev/basic,dev/c,dev/cross,dev/debug,dev/e,dev/gcc,dev/gui,dev/lang,dev/m2,dev/misc,dev/moni,dev/mui,dev/src,
  48. disk/bakup,disk/cache,disk/cdrom,disk/misc,
  49. docs/anno,docs/help,docs/hyper,docs/lists,docs/mags,docs/misc,docs/rview,
  50. game/play,game/actio,game/board,game/data,game/demo,game/gag,game/hint,game/jump,game/misc,game/patch,game/role,game/shoot,game/text,game/think,game/wb,
  51. gfx/3d,gfx/3dobj,gfx/aga,gfx/board,gfx/conv,gfx/edit,gfx/misc,gfx/pbm,gfx/show,
  52. hard/drivr,hard/hack,hard/misc,
  53. misc/edu,misc/emu,misc/kids,misc/math,misc/misc,misc/sci,misc/unix,
  54. mods/8voic,mods/atmos,mods/demo,mods/elbie,mods/funk,mods/hardc,mods/house,mods/instr,mods/jungl,mods/k4k,mods/med,mods/melod,mods/misc,mods/mpg,mods/neuro,mods/nork,mods/piano,mods/pop,mods/pro,mods/rock,mods/roz,mods/sets,mods/slow,mods/smpl,mods/sonor,mods/symph,mods/techn,mods/toady,mods/tranc,mods/voice,mods/xceed,mods/xm,
  55. mus/edit,mus/midi,mus/misc,mus/play,
  56. pix/3dani,pix/anim,pix/art,pix/back,pix/boot,pix/eric,pix/fract,pix/heiko,pix/icon,pix/illu,pix/imagi,pix/irc,pix/jason,pix/misc,pix/mpg,pix/mwb,pix/nicon,pix/trace,pix/vehic,pix/views,pix/wb,
  57. text/bfont,text/dtp,text/edit,text/font,text/hyper,text/misc,text/print,text/show,
  58. util/app,util/arc,util/batch,util/blank,util/boot,util/cdity,util/cli,util/conv,util/crypt,util/dir,util/dtype,util/libs,util/misc,util/moni,util/pack,util/rexx,util/shell,util/sys,util/time,util/virus,util/wb"
  59. endgroup
  60. group frame label "Distribution"
  61. radio ID DIST ATTRS MUIA_CycleChain 1 help '"Which distribution method you want for your program."' labels "Ignore,NoCDs,Aminet"
  62. endgroup
  63. endgroup
  64. group ATTRS MUIA_Group_Columns 2
  65. label "Kurz:"
  66. string ID KURZ ATTRS MUIA_CycleChain 1 help '"Short description. In GERMAN."'
  67. label "Replaces:"
  68. string ID REPLA ATTRS MUIA_CycleChain 1 help '"Enter the file that this file replaces on Aminet."'
  69. label "Requires:"
  70. group ATTRS MUIA_Group_Columns 2
  71. string ID REQUI ATTRS MUIA_CycleChain 1 help '"Enter files that are required by your program."'
  72. button ID REQUE ATTRS MUIA_CycleChain 1 MUIA_Weight 1 help '"Press this to get a nice Requirements edit window."' COMMAND '"CreateAminetReadMe.rexx REQUIEXTRA"' label "Extra"
  73. endgroup
  74. label "Version:"
  75. string ID VERSI ATTRS MUIA_CycleChain 1 help '"The version of your program."'
  76. endgroup
  77. group
  78. group ATTRS MUIA_Group_Columns 2
  79. button ATTRS MUIA_CycleChain 1 help '"Edit your description."' COMMAND '"c:ed t:car.desc"' PORT COMMAND LABEL "Edit description"
  80. button ATTRS MUIA_CycleChain 1 help '"Delete your description."' COMMAND '"c:delete t:car.desc quiet"' PORT COMMAND LABEL "Delete description"
  81. endgroup
  82. group ATTRS MUIA_Group_Columns 2
  83. label "LHA Exe:"
  84. popasl ID LHAEX ATTRS MUIA_CycleChain 1 ASLFR_DoPatterns 1 ASLFR_RejectIcons 1 ASLFR_TitleText "Select LHA executable..."  help '"The path to lha and the executable."'
  85. label "Archive:"
  86. popasl ID ARC ATTRS MUIA_CycleChain 1 ASLFR_InitialPattern "#?.lha" ASLFR_DoPatterns 1 ASLFR_RejectIcons 1 ASLFR_TitleText "Select LHA archive..." help '"The path and name to the archive that you want to be listed in the ReadMe."'
  87. endgroup
  88. group ATTRS MUIA_Group_Columns 2
  89. label "Write archive contents:"
  90. cycle ID WARCC ATTRS MUIA_CycleChain 1 help '"Should the archive contents be written to the ReadMe?"' labels "Yes,No"
  91. endgroup
  92. endgroup
  93. endgroup
  94. group ATTRS MUIA_Group_Columns 3
  95. label "Input ReadMe:"
  96. popasl ID IN ATTRS MUIA_CycleChain 1 ASLFR_InitialPattern "#?.ReadMe" ASLFR_DoPatterns 1 ASLFR_RejectIcons 1 ASLFR_TitleText "Load ReadMe..." help '"Choose the ReadMe that should be loaded."'
  97. button ID LOAD ATTRS MUIA_CycleChain 1 help '"Loads the chosen ReadMe."' COMMAND '"CreateAminetReadMe.rexx LOAD"' label "Load ReadMe"
  98. label "Output ReadMe:"
  99. popasl ID OUT ATTRS MUIA_CycleChain 1 ASLFR_DoPatterns 1 ASLFR_DoSaveMode 1 ASLFR_RejectIcons 1 ASLFR_TitleText "Save ReadMe..." help '"Choose where the ReadMe will be created/saved."'
  100. button ID SAVE ATTRS MUIA_CycleChain 1 help '"Saves the ReadMe."' COMMAND '"CreateAminetReadMe.rexx SAVE"' label "Save ReadMe"
  101. endgroup
  102. group ATTRS MUIA_Group_Columns 5
  103. button ID PREF ATTRS MUIA_CycleChain 1 help '"Saves the preferences."' COMMAND '"CreateAminetReadMe.rexx PREFS"' label "Save Prefs"
  104. space horiz
  105. button ID ABT ATTRS MUIA_CycleChain 1 help '"Shows some info about CreateAminetReadMe."' COMMAND '"CreateAminetReadMe.rexx ABOUT"' label "About"
  106. space horiz
  107. button ID QUIT ATTRS MUIA_CycleChain 1 help '"Quits CreateAminetReadMe."' COMMAND '"quit"' PORT CreateAminetReadMe label "Quit"
  108. endgroup
  109. endwindow
  110. call LoadPrefs
  111. exit
  112. Tags:
  113. ASLFR_DoPatterns = 0x8008002E
  114. ASLFR_DoSaveMode = 0x8008002C
  115. ASLFR_InitialPattern = 0x8008000A
  116. ASLFR_RejectIcons = 0x8008003C
  117. ASLFR_TitleText = 0x80080001
  118. MUIA_CycleChain = 0x80421ce7
  119. MUIA_Dropable = 0x8042fbce
  120. MUIA_Group_Columns = 0x8042f416
  121. MUIA_Group_Horiz = 0x8042536b
  122. MUIA_Group_Rows = 0x8042b68f
  123. MUIA_List_DragSortable = 0x80426099
  124. MUIA_List_Entries = 0x80421654
  125. MUIA_List_Quiet = 0x8042d8c7
  126. MUIA_List_ShowDropMarks = 0x8042c6f3
  127. MUIA_Listview_DragType = 0x80425cd3
  128. MUIA_Menuitem_Title = 0x804218be
  129. MUIA_Menuitem_Shortcut = 0x80422030
  130. MUIA_Radio_Active = 0x80429b41
  131. MUIA_Selected = 0x8042654b
  132. MUIA_String_MaxLen = 0x80424984
  133. MUIA_Weight = 0x80421d1f
  134. MUIA_Window_Borderless = 0x80429b79
  135. MUIA_Window_DepthGadget = 0x80421923
  136. MUIA_Window_DragBar = 0x8042045d
  137. MUIA_Window_ScreenTitle = 0x804234b0
  138. MUIA_Window_SizeGadget = 0x8042e33d
  139. MUIM_Application_AboutMUI = 0x8042d21d
  140. MUIM_Application_OpenConfigWindow = 0x804299ba
  141. MUIV_List_Insert_Sorted = -2
  142. MUIV_Listview_DragType_Immediate = 1
  143. TRUE=1
  144. FALSE=0
  145. R='0A'X
  146. Return
  147. About:
  148. address CreateAminetReadMe
  149. window ID ABOUT Title '"About CreateAminetReadMe v1.5"' COMMAND '"window ID ABOUT close"' PORT CreateAminetReadMe ATTRS MUIA_Window_DragBar TRUE MUIA_Window_DepthGadget FALSE MUIA_Window_SizeGadget FALSE MUIA_Window_Borderless FALSE
  150. text label "\033c\033bCreateAminetReadMe v1.5\033n\n\033cFreely Distributable Emailware\n\n\033cPlease visit my homepage:\nhttp://members.xoom.com/snorslex/\n\nPlease E-Mail me if you like/hate the program!\nSnorsleX@SoftHome.net\n\n\033r©Copyright 1998-1999 Lorens Johansson"
  151. group ATTRS MUIA_Group_Columns 3
  152. space horiz
  153. button COMMAND '"window ID ABOUT close"' PORT CreateAminetReadMe ATTRS MUIA_CycleChain 1 label "Okey"
  154. space horiz
  155. endgroup
  156. endwindow
  157. return
  158. RequiExtra:
  159. address CreateAminetReadMe
  160. window ID REQEX Title '"Requirements Extra"' COMMAND '"window ID REQEX close"' PORT CreateAminetReadMe
  161. text label "\033cChoose the requirements in an easy way!"
  162. group HORIZ
  163. group label "Predefined:"
  164. list ID LST1 ATTRS MUIA_Listview_DragType MUIV_Listview_DragType_Immediate MUIA_List_ShowDropMarks 0
  165. group ATTRS MUIA_Group_Columns 2 label "Add new predefined:"
  166. string ID RENES ATTRS MUIA_CycleChain 1
  167. button ID RENEW ATTRS MUIA_CycleChain 1 MUIA_Weight 1 COMMAND '"CreateAminetReadMe.rexx REQUIEXTRAADDPRE"' label "Add"
  168. endgroup
  169. endgroup
  170. group label "Chosen:"
  171. list ID LST2 ATTRS MUIA_Listview_DragType MUIV_Listview_DragType_Immediate MUIA_List_DragSortable 1
  172. endgroup
  173. endgroup
  174. group ATTRS MUIA_Group_Columns 3
  175. button COMMAND '"CreateAminetReadMe.rexx REQUIEXTRAOK"' ATTRS MUIA_CycleChain 1 label "OK"
  176. space HORIZ
  177. button COMMAND '"window ID REQEX close"' PORT CreateAminetReadMe ATTRS MUIA_CycleChain 1 label "Cancel"
  178. endgroup
  179. endwindow
  180. callhook ID LST1 PORT INLINE INCLUDE "LST2" DROP,
  181. COMMAND """options results;
  182. address CreateAminetReadMe;
  183. line = '%s';
  184. 'list ID LST1 INSERT POS "MUIV_List_Insert_Sorted" STRING' line;
  185. 'list ID LST2 REMOVE STRING' line;"""
  186. callhook ID LST2 PORT INLINE INCLUDE "LST1" DROP,
  187. COMMAND """options results;
  188. address CreateAminetReadMe;
  189. line = '%s';
  190. 'list ID LST2 INSERT STRING' line;
  191. 'list ID LST1 REMOVE STRING' line;"""
  192. if OPEN("req","requirements.prefs","R") then do
  193. list ID LST1 ATTRS MUIA_List_Quiet TRUE
  194. do until EOF("req")
  195. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING READLN("req")
  196. end
  197. list ID LST1 ATTRS MUIA_List_Quiet FALSE
  198. call close("req")
  199. end
  200. return
  201. RequiExtraOk:
  202. RES=""
  203. address CreateAminetReadMe
  204. list ID LST2 MUIA_List_Entries
  205. nr=result
  206. do until nr=0
  207. nr=nr-1
  208. list ID LST2 POS nr
  209. if RES="" then RES=result
  210. else RES=RES||", "||result
  211. end
  212. string ID REQUI content RES
  213. window ID REQEX close
  214. return
  215. RequiExtraAddPre:
  216. address CreateAminetReadMe
  217. string ID RENES
  218. new=result
  219. list ID LST1 POS MUIV_List_Insert_Sorted INSERT STRING new
  220. if OPEN("list","requirements.prefs","A") then do
  221. CALL WRITELN("list",new)
  222. CALL CLOSE("list")
  223. end
  224. return
  225. Load:
  226. address CreateAminetReadMe
  227. popasl ID IN
  228. FILE=result
  229. if FILE="" then do; say "You must select which file to load first!";exit;end
  230. if ~exists(FILE) then do; say "The file does not exist!";exit;end
  231. call open(load,FILE,"r")
  232. SH="";AU="";UP="";TY="";KU="";RE="";REQ="";VE="";DI=0
  233. do until eof(load)
  234. NOT=0
  235. RAD=readln(load)
  236. RAD2=left(RAD,4)
  237. if UPPER(RAD2)="SHOR" then do
  238. NOT=1
  239. SH=delstr(RAD,1,10)
  240. end
  241. if UPPER(RAD2)="AUTH" then do
  242. NOT=1
  243. AU=delstr(RAD,1,10)
  244. end
  245. if UPPER(RAD2)="UPLO" then do
  246. NOT=1
  247. UP=delstr(RAD,1,10)
  248. end
  249. if UPPER(RAD2)="VERS" then do
  250. NOT=1
  251. VE=delstr(RAD,1,10)
  252. end
  253. if UPPER(RAD2)="TYPE" then do
  254. NOT=1
  255. TY=delstr(RAD,1,10)
  256. end
  257. if UPPER(RAD2)="KURZ" then do
  258. NOT=1
  259. KU=delstr(RAD,1,10)
  260. end
  261. if UPPER(RAD2)="REPL" then do
  262. NOT=1
  263. RE=delstr(RAD,1,10)
  264. end
  265. if UPPER(RAD2)="REQU" then do
  266. NOT=1
  267. REQ=delstr(RAD,1,10)
  268. end
  269. if UPPER(RAD2)="DIST" then do
  270. NOT=1
  271. DI=delstr(RAD,1,14)
  272. if DI="" then DI = 0
  273. if DI="NoCDs" then DI = 1
  274. if DI="Aminet" then DI = 2
  275. end
  276. if NOT=0 then do
  277. line=RAD
  278. WRITE=TRUE
  279. call open(desc,"t:car.desc",W)
  280. do until eof(load)
  281. if line="============================= Archive contents =============================" then WRITE = FALSE
  282. if WRITE=TRUE then call writeln(desc,line)
  283. line=readln(load)
  284. end
  285. call close(desc)
  286. end
  287. end
  288. call close(load)
  289. address CreateAminetReadMe
  290. string ID SHORT content SH
  291. string ID AUTHO content AU
  292. string ID UPLOA content UP
  293. poplist ID ULTYP content TY
  294. string ID KURZ content KU
  295. string ID REPLA content RE
  296. string ID REQUI content REQ
  297. string ID VERSI content VE
  298. radio ID DIST ATTRS MUIA_Radio_Active DI
  299. return
  300. Save:
  301. address CreateAminetReadMe
  302. popasl ID OUT
  303. OUTPUT=result
  304. if OUTPUT="" then do;say "You must enter where the ReadMe shall be created!";exit;end
  305. string ID SHORT
  306. SHORT=result
  307. string ID AUTHO
  308. AUTHO=result
  309. string ID UPLOA
  310. UPLOA=result
  311. string ID VERSI
  312. VERSI=result
  313. poplist ID ULTYP
  314. ULTYP=result
  315. string ID KURZ
  316. KURZ=result
  317. string ID REPLA
  318. REPLA=result
  319. string ID REQUI
  320. REQUI=result
  321. radio ID DIST
  322. DIST=result
  323. if SHORT="" then do;say "You must fill out the Short field!";exit;end
  324. if AUTHO="" then do;say "You must fill out the Author field!";exit;end
  325. if UPLOA="" then do;say "You must fill out the Uploader field!";exit;end
  326. if ULTYP="" then do;say "You must fill out the Upload Type field!";exit;end
  327. call open(readme,OUTPUT,"w")
  328. call writeln(readme,"Short:    "||SHORT)
  329. call writeln(readme,"Author:   "||AUTHO)
  330. call writeln(readme,"Uploader: "||UPLOA)
  331. if VERSI ~= "" then call writeln(readme,"Version:  "||VERSI)
  332. call writeln(readme,"Type:     "||ULTYP)
  333. if KURZ ~= "" then call writeln(readme,"Kurz:     "||KURZ)
  334. if REPLA ~= "" then call writeln(readme,"Replaces: "||REPLA)
  335. if REQUI ~= "" then call writeln(readme,"Required: "||REQUI)
  336. if DIST ~= "Ignore" then call writeln(readme,"Distribution: "||DIST)
  337. if exists("t:car.desc") = 1 then do
  338. call writeln(readme,"")
  339. call open(desc,"t:car.desc","r")
  340. do until eof(desc)
  341. line=readln(desc)
  342. call writeln(readme,line)
  343. end
  344. call close(desc)
  345. end
  346. cycle ID WARCC
  347. WARCC=result
  348. if WARCC="Yes" then do
  349. popasl ID LHAEX
  350. LHAEX=result
  351. if LHAEX="" then do;say "You must enter tha path to the lha executeable!";exit;end
  352. if ~exists(LHAEX) then do;say "Could not find the LHA executable!";exit;end
  353. popasl ID ARC
  354. ARC=result
  355. if ARC="" then do;say "You must select the archive!";exit;end
  356. if ~exists(ARC) then do;say "Could not find the archive!";exit;end
  357. ADDRESS COMMAND LHAEX||" l "||ARC||" > T:lha.list"
  358. call writeln(readme,"")
  359. call writeln(readme,"============================= Archive contents =============================")
  360. call writeln(readme,"")
  361. call open(list,"t:lha.list","r")
  362. do until eof(list)
  363. line=readln(list)
  364. call writeln(readme,line)
  365. end
  366. call close(list)
  367. end
  368. call writeln(readme,"")
  369. call writeln(readme,"Created Using CreateAminetReadMe by Lorens Johansson.")
  370. call close(readme)
  371. return
  372. LoadPrefs:
  373. if exists("CAR.Prefs") then do
  374. call open(prefs,"CAR.prefs","r")
  375. address CreateAminetReadMe
  376. string ID SHORT content readln(prefs)
  377. string ID AUTHO content readln(prefs)
  378. string ID UPLOA content readln(prefs)
  379. poplist ID ULTYP content readln(prefs)
  380. radio ID DIST ATTRS MUIA_Radio_Active readln(prefs)
  381. string ID KURZ content readln(prefs)
  382. string ID REPLA content readln(prefs)
  383. string ID REQUI content readln(prefs)
  384. string ID VERSI content readln(prefs)
  385. popasl ID LHAEX content readln(prefs)
  386. popasl ID ARC content readln(prefs)
  387. cycle ID WARCC ATTRS MUIA_Cycle_Active readln(prefs)
  388. call close(prefs)
  389. end
  390. return
  391. SavePrefs:
  392. address CreateAminetReadMe
  393. call open(save,CAR.prefs,"w")
  394. string ID SHORT
  395. SHORT=result
  396. call writeln(save,SHORT)
  397. string ID AUTHO
  398. call writeln(save,result)
  399. string ID UPLOA
  400. call writeln(save,result)
  401. poplist ID ULTYP
  402. call writeln(save,result)
  403. radio ID DIST
  404. DIST=result
  405. if DIST="Ignore" then DIST=0
  406. if DIST="NoCDs" then DIST=1
  407. if DIST="Aminet" then DIST=2
  408. call writeln(save,DIST)
  409. string ID KURZ
  410. call writeln(save,result)
  411. string ID REPLA
  412. call writeln(save,result)
  413. string ID REQUI
  414. call writeln(save,result)
  415. string ID VERSI
  416. call writeln(save,result)
  417. popasl ID LHAEX
  418. call writeln(save,result)
  419. popasl ID ARC
  420. call writeln(save,result)
  421. cycle ID WARCC
  422. WARCC=result
  423. if WARCC="Yes" then WARCC=0
  424. if WARCC="No" then WARCC=1
  425. call writeln(save,WARCC)
  426. call close(save)
  427. return
  428.